home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / test1.self < prev    next >
Encoding:
Text File  |  1993-06-23  |  970 b   |  39 lines
  1. " X window --- AAWindow tests. "
  2. "
  3. *
  4. * This should open up a window on the given host (should really prompt, or check
  5. * out the $DISPLAY variable). The window should refresh itself if you run the
  6. * disp wpe line repeatedly.
  7. * 
  8. * test1.self,v 1.4 1993/06/23 00:36:07 richards Exp
  9. *
  10. * test1.self,v
  11. * Revision 1.4  1993/06/23  00:36:07  richards
  12. * Fixed up test1 to work with new code.
  13. * boites and window have first hack at highlighting code.
  14. *
  15. * Revision 1.3  1993/05/31  00:12:17  richards
  16. * May 30 checkin. Font support is nearly debugged.
  17. * Make use of glue now.
  18. * Added rational (fraction) types.
  19. *
  20. * Revision 1.2  1993/05/30  21:47:01  richards
  21. * Tests include newerX and navel in the tests.
  22. *
  23. # Revision 1.1  1992/08/19  02:02:34  richards
  24. # Initial revision
  25. #
  26. *
  27. *
  28. "
  29.  
  30. _AddSlotsIfAbsent: (| myview. |)
  31. viewManager shutdown
  32. myview: view copy
  33. myview name: 'An Algebra assistant named AA'
  34. myview area: (5@26)##(500@@500)
  35. myview realise
  36. myview map
  37. myview display flush
  38.  
  39.